Imports RIBS.DataAccessLayer
Namespace BusinessLogicLayer
    Public Class DataBaseTools
        Public Shared Function BackUpDataBase() As Boolean
            Try
                Dim DBLayer As New DataAccess
                Return DBLayer.BackUpDataBase()
            Catch ex As Exception

            End Try
        End Function

    End Class
End Namespace

